HPAVC

home *** CD-ROM | disk | FTP | other *** search

/ HPAVC / HPAVC CD-ROM.iso / pc / CNBSRC.ZIP / REVIEWS.INC < prev next >

Wrap

Text File | 1996-01-14 | 35.0 KB | 662 lines

{# Monthly art pack reviews #} Procedure REVIEWS; Label READpakREVIEW, PakRELIST, LEAVEreviews; var Pakselect :byte; BEGIN pakselect := 1; PakRELIST{LABEL}: xch := ' '; IFACEimg; While xch <> (#13) do begin xch := ' '; {Pack Selections} textbackground(3); textcolor(1); {**********************************} gotoxy(65,3){Issue #4}; {*} write('ACiD'); {*} {**********************************} gotoxy(71,3); {*} write('iCE'); {*} {**********************************} gotoxy(65,4); write('Dark'); {**********************************} gotoxy(71,4); write('Evil'); {**********************************} gotoxy(65,5); {*} write('GoO'); {*} {**********************************} gotoxy(71,5); {*} write('Blind'); {*} {**********************************} gotoxy(65,6); write('CIA'); {**********************************} gotoxy(71,6); {*} write('Solo'); {*} {**********************************} gotoxy(65,7); write('ACME'); {**********************************} gotoxy(71,7); write('Anemia'); {**********************************} gotoxy(65,8); write('Nausia'); {**********************************} gotoxy(65,9); write('EXIT Reviews'); {**********************************} {Option Highlight} textcolor(15); if pakselect = 1 then begin gotoxy(65,3); write('ACiD'); end; if pakselect = 2 then begin gotoxy(71,3); write('iCE'); end; if pakselect = 3 then begin gotoxy(65,4); write('Dark'); end; if pakselect = 4 then begin gotoxy(71,4); write('Evil'); end; if pakselect = 5 then begin gotoxy(65,5); write('GoO'); end; if pakselect = 6 then begin gotoxy(71,5); write('Blind'); end; if pakselect = 7 then begin gotoxy(65,6); write('CIA'); end; if pakselect = 8 then begin gotoxy(71,6); write('Solo'); end; if pakselect = 9 then begin gotoxy(65,7); write('ACME'); end; if pakselect = 10 then begin gotoxy(71,7); write('Anemia'); end; if pakselect = 11 then begin gotoxy(65,8); write('Nausia'); end; if pakselect = 12 then begin gotoxy(65,9); write('EXIT Reviews'); end; xch := readkey; case xch of (#80) :begin if pakselect < 12 then pakselect := pakselect + 1; end; (#72) :begin if pakselect > 1 then pakselect := pakselect - 1; end; (#77) :begin if pakselect < 12 then pakselect := pakselect + 1 ; end; (#75) :begin if pakselect > 1 then pakselect := pakselect - 1; end; (#27) :begin pakselect := 0; EXIT; end; end; end; {Prepare selected option for reading} {clearing out variables} for x := 1 to 150 do begin xline[x] := ' '; end; {____________________________________________________________________________} {*********************} If pakselect = 1 then begin xline[1] := ' '; xline[2] := ' No pack'; xline[3] := ' '; xend := 3; goto READpakREVIEW; end; {*********************} if pakselect = 2 then begin xline[1] := ' '; xline[2] := ' iCE9512 - [A] '; xline[3] := ' '; xline[4] := ' Apox[AX] √√√√√ '; xline[5] := ' Nice work. '; xline[6] := ' '; xline[7] := ' Borian[BN] √√√√√√√√√ '; xline[8] := ' Content, colors, all very nice. Smooth art. '; xline[9] := ' '; xline[10] := ' Cold and Ugly[CU] √√√√√√√ '; xline[11] := ' Nice work. The shading was sweet. '; xline[12] := ' '; xline[13] := ' Highness[HN] √√√√√√ '; xline[14] := ' Not up to your usual high quality standards. '; xline[15] := ' '; xline[16] := ' Kadaver[KA] √√√√√√ '; xline[17] := ' Decent work. Not much detail, and the subjects were rather'; xline[18] := ' weak. '; xline[19] := ' '; xline[20] := ' Lemonade[LM] √√√√√√√√ '; xline[21] := ' Nice work. I liked LM-ARKA1.ICE the best. '; xline[22] := ' '; xline[23] := ' Lord Soth[LS] √√√√√√ '; xline[24] := ' More shading was needed. '; xline[25] := ' '; xline[26] := ' MD & Company[MD] √√√√√√ '; xline[27] := ' Shading was nice. Stale content. '; xline[28] := ' '; xline[29] := ' Magnetic M[MM] √√√√√√ '; xline[30] := ' Good shading. '; xline[31] := ' '; xline[32] := ' Misfit[MT] √√√√√√ '; xline[33] := ' I liked what you did, but I thought more content should have'; xline[34] := ' been added to the pics. '; xline[35] := ' '; xline[36] := ' Prizm[PRM] √√√√√√√ '; xline[37] := ' I liked that rip. Something I haven''t seen before. '; xline[38] := ' '; xline[39] := ' Parasite[PS] √√√√√√√ '; xline[40] := ' Nice work. Ran smooth. '; xline[41] := ' '; xline[42] := ' Squidgalator[SQ] √√√√√ '; xline[43] := ' Good work. '; xline[44] := ' '; xline[45] := ' Tical[TCL] √√√√√ '; xline[46] := ' Decent. Nothing original. '; xline[47] := ' '; xline[48] := ' Tetanus[TE] √√√√√ '; xline[49] := ' More shading and colors were needed to give your art depth and'; xline[50] := ' flare. '; xline[51] := ' '; xline[52] := ' Toon Goon[TG] √√√√√√√√ '; xline[53] := ' Oh yeah. Kickass piece of work. '; xline[54] := ' '; xline[55] := ' The Green Hornet[TGH] √√√√√√√√ '; xline[56] := ' Nice work. The Shading on TGH-SOAS.ICE was very nice. '; xline[57] := ' '; xline[58] := ' The Night Angel[TNA] √√√√ '; xline[59] := ' Fonts. '; xline[60] := ' '; xline[61] := ' Us Art[US] √√√√√√√ '; xline[62] := ' US-ICE.ICE was the best. '; xline[63] := ' '; xline[64] := ' Veks[VK] √√√√ '; xline[65] := ' Lacks detail. '; xline[66] := ' '; xline[67] := ' JPEGs '; xline[68] := ' '; xline[69] := ' Aphid Twix[AT] √√√√√√√ '; xline[70] := ' AT-4THST.JPG was the best. Nice work. '; xline[71] := ' '; xline[72] := ' [DI] √√√√√ '; xline[73] := ' Unoriginal. '; xline[74] := ' '; xline[75] := ' [HF] √√√√√√ '; xline[76] := ' Interesting. '; xline[77] := ' '; xline[78] := ' [MS] √√√√√ '; xline[79] := ' Uninspired. '; xline[80] := ' '; xline[81] := ' [SK] √√√√√√√ '; xline[82] := ' Nice work. I really liked SK-ICE1.JPG. '; xline[83] := ' '; xline[84] := ' Visigoth[VS] √√√√√√√√√ '; xline[85] := ' Wicked original art. VS-WALL.JPG was rad as hell. '; xline[86] := ' '; xend := 86; goto READpakREVIEW; end; {********************} if pakselect = 3 then begin xline[1] := ' '; xline[2] := ' DARK0196 - [C] '; xline[3] := ' '; xline[4] := ' The 4th Disciple[4THDS] √√ '; xline[5] := ' Fonts and a matrix. '; xline[6] := ' '; xline[7] := ' Acidic Soap[ASOAP] √√√√√ '; xline[8] := ' Well drawn. '; xline[9] := ' '; xline[10] := ' Moby[MOBY] √√√ '; xline[11] := ' Nothing stood out. '; xline[12] := ' '; xline[13] := ' Multiple artists[MULTI] √√√ '; xline[14] := ' Uninspired. '; xline[15] := ' '; xline[16] := ' Raize[RAIZE] √√√√√ '; xline[17] := ' Different. '; xline[18] := ' '; xline[19] := ' Riptide[RPTDE] √√√√√ '; xline[20] := ' A floating head. '; xline[21] := ' '; xline[22] := ' Xypher Matryx[XMTRX] √√√ '; xline[23] := ' Uninspired. Lack of effort. '; xline[24] := ' '; xline[25] := ' JPEGs '; xline[26] := ' '; xline[27] := ' Burnout[BURNT] √√√√ '; xline[28] := ' Original, but lacked clarity. '; xline[29] := ' '; xline[30] := ' [DVTYM] √√√ '; xline[31] := ' Uninspired. Unoriginal. '; xline[32] := ' '; xline[33] := ' Prison Breaker[PRISB] √√√√√√ '; xline[34] := ' Pretty cool, but needed more detail. PRISB-03.JPG was the'; xline[35] := ' best. '; xline[36] := ' '; xend := 36; goto READpakREVIEW; end; {********************} if pakselect = 4 then begin xline[1] := ' '; xline[2] := ' EVIL1295 - [F] '; xline[3] := ' '; xline[4] := ' Ace[AC] √ '; xline[5] := ' Art lacked any serious effort. '; xline[6] := ' '; xline[7] := ' Crazy[CR] √ '; xline[8] := ' Nothing worth mentioning. Repetitive logos. Painful visual'; xline[9] := ' experience. '; xline[10] := ' '; xline[11] := ' Genocide[GC] √ '; xline[12] := ' Learn to shade. Same as above. '; xline[13] := ' '; xline[14] := ' Hellstorm[HS] √ '; xline[15] := ' I have no response to that. '; xline[16] := ' '; xline[17] := ' Sigmar[SG] √√ '; xline[18] := ' Potentially a good artist. Learn to shade. Best pic was '; xline[19] := ' SG-DC.EVL. '; xline[20] := ' '; xline[21] := ' Speed[SP] √ '; xline[22] := ' Quality over quantity. Solid white ansis make my eyes '; xline[23] := ' bleed. '; xline[24] := ' '; xline[25] := ' [TR] √ '; xline[26] := ' No shading. No originality. '; xline[27] := ' '; xline[28] := ' Zork[ZO] √ '; xline[29] := ' Dull. Flat. '; xline[30] := ' '; xend := 30; goto READpakREVIEW; end; {********************} if pakselect = 5 then begin xline[1] := ' '; xline[2] := ' GOO001 - [D] '; xline[3] := ' '; xline[4] := ' K0rpse[K0] √√√ '; xline[5] := ' Your shading is pretty good, but you need to practice on your'; xline[6] := ' pics. '; xline[7] := ' '; xline[8] := ' Psychoholic[PH] √√√√√√ '; xline[9] := ' Charlie Chaplin is so cool. :) '; xline[10] := ' '; xline[11] := ' NOTE: You guys need more members. ;) '; xline[12] := ' '; xend := 12; goto READpakREVIEW; end; {********************} if pakselect = 6 then begin xline[1] := ' '; xline[2] := ' BLIND-01 - [F] '; xline[3] := ' '; xline[4] := ' [GS] √√ '; xline[5] := ' Abstract. '; xline[6] := ' '; xline[7] := ' Kirin[KRN] √ '; xline[8] := ' Uninspired art. More attention to detail and shading was '; xline[9] := ' needed. '; xline[10] := ' '; xline[11] := ' Lord of Illusions[LOI] √ '; xline[12] := ' Poor subject choice. Shading and proportions needed work.'; xline[13] := ' '; xline[14] := ' [LSD] √ '; xline[15] := ' Uninspired. '; xline[16] := ' '; xline[17] := ' Malis Avibus[MA] √√ '; xline[18] := ' Shading needed work. Poor subject matter. Too blocky. '; xline[19] := ' Everything looked rushed and unfinished. '; xline[20] := ' '; xline[21] := ' [NRG] √ '; xline[22] := ' Uninspired. '; xline[23] := ' '; xline[24] := ' The Sad Jester[SJ] √ '; xline[25] := ' Left me limp. '; xline[26] := ' '; xline[27] := ' Stalker[ST] √ '; xline[28] := ' Weak subject matter. Backgrounds needed more attention. '; xline[29] := ' '; xend := 29; goto READpakREVIEW; end; {********************} if pakselect = 7 then begin xline[1] := ' '; xline[2] := ' CIAPAK30 - [C] '; xline[3] := ' '; xline[4] := ' Blackviper[BV] √ '; xline[5] := ' Uninspired. '; xline[6] := ' '; xline[7] := ' Cyst[CY] √√√√ '; xline[8] := ' Unoriginal. Poorly drawn and shaded. '; xline[9] := ' '; xline[10] := ' Cheeze[CZ] √√ '; xline[11] := ' Nothing special. '; xline[12] := ' '; xline[13] := ' Darkshade[DS] √√√√ '; xline[14] := ' Pics lacked detail and definition. '; xline[15] := ' '; xline[16] := ' Ethedrool[EO] √√ '; xline[17] := ' Font. '; xline[18] := ' '; xline[19] := ' Lucifer[LF] √ '; xline[20] := ' Font. '; xline[21] := ' '; xline[22] := ' Liquid Vision[LV] √√ '; xline[23] := ' Fonts. '; xline[24] := ' '; xline[25] := ' Napalm[NA] √√√√√ '; xline[26] := ' More content to the pics and definition was needed. '; xline[27] := ' '; xline[28] := ' Phaser X[PX] √√ '; xline[29] := ' Not much to look at. '; xline[30] := ' '; xline[31] := ' Us art[US] √√√√√√ '; xline[32] := ' That rip was original. A different approach. '; xline[33] := ' '; xline[34] := ' Veediot[VD] √ '; xline[35] := ' Uninspired. '; xline[36] := ' '; xline[37] := ' [ZL] √√√√√√ '; xline[38] := ' I liked the .GIF the best. '; xline[39] := ' '; xline[40] := ' JPEGs '; xline[41] := ' '; xline[42] := ' [LT] √√√ '; xline[43] := ' Uninspired. '; xline[44] := ' '; xline[45] := ' Telstar[TE] √√√ '; xline[46] := ' Uninspired. '; xline[47] := ' '; xend := 47; goto READpakREVIEW; end; {********************} if pakselect = 8 then begin xline[1] := ' '; xline[2] := ' SOLO0196 - [F] '; xline[3] := ' '; xline[4] := ' Cynic[CY] √ '; xline[5] := ' No depth, no detail, no shading or color. Bland. '; xline[6] := ' '; xline[7] := ' [DG] √ '; xline[8] := ' Uninspired. Weak content and detail. This artist makes me '; xline[9] := ' think he could care less. So why bother? '; xline[10] := ' '; xline[11] := ' [FU] √ '; xline[12] := ' I have no response to this. '; xline[13] := ' '; xline[14] := ' [JF] √ '; xline[15] := ' A font. '; xline[16] := ' '; xline[17] := ' [NX] √ '; xline[18] := ' Despicable. '; xline[19] := ' '; xline[20] := ' [SD] √ '; xline[21] := ' Uninspired fonts. '; xline[22] := ' '; xline[23] := ' [SN] √ '; xline[24] := ' Another bland font. '; xline[25] := ' '; xline[26] := ' [WI] √ '; xline[27] := ' More fonts. <yawn> '; xline[28] := ' '; xline[29] := ' [X0] √ '; xline[30] := ' Lame ascii disguised with an *.ans extension. '; xline[31] := ' '; xend := 31; goto READpakREVIEW; end; {********************} if pakselect = 9 then begin xline[1] := ' '; xline[2] := ' ACME0196 - [C] '; xline[3] := ' '; xline[4] := ' Arcade[AD] √√√√ '; xline[5] := ' The shading on AD-ETERN.ANS was bad. The rest was okay. '; xline[6] := ' The fonts were cool. A couple caught my attention like the'; xline[7] := ' one for Biproduct. '; xline[8] := ' '; xline[9] := ' K-os[KO] √ '; xline[10] := ' Those fonts need work. They all looked the same and the shading'; xline[11] := ' was bland. '; xline[12] := ' '; xline[13] := ' Mortal[ML] √√ '; xline[14] := ' Decent. Nothing stood out. The Terminal Overdose matrix needed '; xline[15] := ' definition. '; xline[16] := ' '; xline[17] := ' Metal Man[MM] √ '; xline[18] := ' Uninspired. '; xline[19] := ' '; xline[20] := ' Mauser[MR] √√√√ '; xline[21] := ' Not bad. MR-TJT1.ANS was too blocky. Not a bad pic otherwise. '; xline[22] := ' '; xline[23] := ' Pinky[PK] √√√√ '; xline[24] := ' Okay stuff. The Point Omega ansi had potential. Should have '; xline[25] := ' given more attention to it. '; xline[26] := ' '; xline[27] := ' Rusty[RS] √√√√ '; xline[28] := ' Practice. RS-T_OD1.ANS was your best. '; xline[29] := ' '; xline[30] := ' Sniper[SN] √ '; xline[31] := ' Uninspired. '; xline[32] := ' '; xline[33] := ' [SV] √ '; xline[34] := ' Weak subject. Lack of detail. '; xline[35] := ' '; xline[36] := ' [WB] √ '; xline[37] := ' Uninspired. '; xline[38] := ' '; xend := 38; goto READpakREVIEW; end; {*********************} if pakselect = 10 then begin xline[1] := ' '; xline[2] := ' ANE-0196 - [C] '; xline[3] := ' '; xline[4] := ' Crimeboss[CB] √√√ '; xline[5] := ' CB-ANT.GIF was nothing short of pathetic. The rest were okay.'; xline[6] := ' '; xline[7] := ' Flight[FLT] √√√ '; xline[8] := ' Needed more shading and colors. '; xline[9] := ' '; xline[10] := ' Mung[MG] √√√√√ '; xline[11] := ' Not bad. More would have been better. '; xline[12] := ' '; xline[13] := ' O OAnatoe[OO] √√√√√ '; xline[14] := ' Definition was needed. Good Proportions, but it looked rushed.'; xline[15] := ' '; xline[16] := ' Silverblade[SB] √√√√√ '; xline[17] := ' The face needed work. '; xline[18] := ' '; xline[19] := ' The Hooded One[THO] √√√√ '; xline[20] := ' More detail needed. Chose a better subject next time. '; xline[21] := ' '; xline[22] := ' Us art[US] √√ '; xline[23] := ' Odie. '; xline[24] := ' '; xline[25] := ' Warlok[WK] √√√√ '; xline[26] := ' The bull was cool, but the shading was bad. The other pic'; xline[27] := ' was weak. '; xline[28] := ' '; xend := 28; goto READpakREVIEW; end; {*********************} if pakselect = 11 then begin xline[1] := ' '; xline[2] := ' NAUS0196 - [D] '; xline[3] := ' '; xline[4] := ' [G3] √√√√√ '; xline[5] := ' Random shading when done improperly comes off like shit. Don''t'; xline[6] := ' overdo it. I liked G3-BIPRO.NAU the best. '; xline[7] := ' '; xline[8] := ' [LI] √√√ '; xline[9] := ' Poorly drawn. Practice. '; xline[10] := ' '; xline[11] := ' [MD] √ '; xline[12] := ' Uninspired. '; xline[13] := ' '; xline[14] := ' [NB] √√ '; xline[15] := ' Nuclear Holocaust was the best. '; xline[16] := ' '; xline[17] := ' [PH] √ '; xline[18] := ' Bland. '; xline[19] := ' '; xline[20] := ' [TR] √ '; xline[21] := ' Uninspired. Lacking detail. '; xline[22] := ' '; xend := 22; goto READpakREVIEW; end; {*********************} if pakselect = 12 then begin EXIT; end; {**Read selected text**} READpakREVIEW: textbackground(0); textcolor(9); clrscr; T_HDRimg{Display the text header ansi}; window(4,5,76,21); gotoxy(1,1); xch := ' '; for x := 1 to 16 do writeln(xline[x]); while (xch <> (#13)) and (xch <> (#27)) do begin xch := ' '; xch := readkey; case xch of (#80) :begin if x <= xend then begin x := x + 1; gotoxy(1,1); delLine; gotoxy(1,16); writeln(xline[x]); end; end; (#72) :begin if (x - 15) > (1) then begin x := x - 1; gotoxy(1,1); InsLine; writeln(xline[x-15]); end; end; (#81) :begin if x <= xend then begin x := x + 1; gotoxy(1,1); delLine; gotoxy(1,16); writeln(xline[x]); end; end; (#73) :begin if (x - 15) > (1) then begin x := x - 1; gotoxy(1,1); InsLine; writeln(xline[x-15]); end; end; (#77) :begin if x <= xend then begin x := x + 1; gotoxy(1,1); delLine; gotoxy(1,16); writeln(xline[x]); end; end; (#75) :begin if (x - 15) > (1) then begin x := x - 1; gotoxy(1,1); InsLine; writeln(xline[x-15]); end; end; end; end; window(1,1,80,25){Return screen to normal size}; goto pakRELIST; END;